use Test::More;

my $success = 1;

if ( $success ) {
    is 1, 1, 'first test';
    ok 1, 'second test';
    like 'abcdefg', qr/def/, 'third test';
}
else {
    is 1, 0, 'first test';
    ok undef, 'second test';
    like 'abcdefg', qr/xyz/, 'third test';
}

done_testing();

__END__

$ prove t/test01.t   

